SUBROUTINE TRANS(N)
	COMMON K /P/ P(1) /CONV/ICONV /NDEV/NDEV
	DATA BLA/'   '/,TRNS/'TRNS'/,EXCL/'!'/
	IF(N.NE.1)GO TO 1
4	WRITE(NDEV,2)
	READ(NDEV,3)X
	IF(X.NE.EXCL)GO TO 5
C TYPE '!' TO OUTPUT FOR SMPLS PROG.   TRIGGERS ICONV FLIPFLOP
  	ICONV=0
	WRITE(NDEV,44)
	GO TO 4
44  	FORMAT(' OUTPUT=TEST.DAT'/)
5	IF(X.EQ.BLA)X=TRNS
	CALL IFILE(21,X)
	N=0
2	FORMAT(' TYPE FILE NAME -- '$)
3	FORMAT(A4)
1	READ (21) K,(P(J),J=1,K)  
	END
CC	SUBROUTINE PLAY
CC	TYPE 1
CC	CALL EXIT
CC1	FORMAT(' TEST.SND WAS WRITTEN')
CC	END